Asobe! Fotoshock 5.0 ERO/Asobe! Fotoshock 5.0 ERO.iso/pc/tool.dxr/00028_ÉLÉÉÉXÉgÇ…ì«Ç›çûÇ€.ls

Text File | 1999-03-23 | 509 b | 21 lines

property spriteNum
global gpartslist, gactivenum

on btncmd
  if gactivenum > 0 then
    set myio_file to new(xtra("fileIO"))
    set newpath to displayopen(myio_file)
    closefile(myio_file)
    if not (newpath = EMPTY) then
      tell getAt(the windowList, 1)
        set xxx to value("#" & string(gactivenum))
        fileintopieace(getProp(gpartslist, xxx), newpath)
      end tell
    else
      exit
    end if
  else
    alert("ﾃｭuﾃ‡ﾂｴﾃ､ﾃ敕‡ﾂｶﾃ‡ﾃ暗ｨﾃ催ｨﾃ､ﾃ‡ﾂ敕ｫIﾃ‡ﾃ津‡ﾂｼﾃ｢ﾅ ﾃ‡ﾅｽﾃ‡ﾂ｢ﾃ③")
  end if
end